use the agent trigger "when docs are pasted"

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

Subject:

You do not have to use views for that.
Below is the code I use for years to prevent uses from pasting docs. I use a settings doc (avaialbel to admins only) to turn pasting on or off:

Function PreventDocPaste
%REM
This Function prevents any user from pasting docs in the db
- any pasted doc is marked as deleted by changing the form to "DeleteMe"
- the PastedBy and PastedOn fields are set to the current user name and date time stamp
- A value of "ALLOW" in the AllowDocPaste settings doc
%END REM
Dim session As New NotesSession
Dim db As NotesDatabase
Dim viewAdmin As NotesView
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim docAdmin As NotesDocument

Set db = session.CurrentDatabase
Set viewAdmin = db.GetView( "AdminSettings" )
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument
REM check if doc pasting is allow at this time
Set docAdmin = viewAdmin.GetDocumentByKey( "AllowDocPaste" , True )
If Not docAdmin Is Nothing Then
If Ucase( docAdmin.Field1(0) ) = "ALLOW" Then
REM allow pasting docs
Exit Function
End If
End If

Msgbox "You cannot paste documents in this application." , 16 , "Application Auto-protection"

While Not doc Is Nothing
doc.PastedBy = session.UserName
doc.PastedOn = Now
doc.DeletedDate = doc.PastedOn(0)
doc.DeletedBy = doc.PastedBy
doc.OldForm = doc.Form(0)
doc.Form = "DeleteMe"
Call doc.Save( True , False )
REM
Set doc = collection.GetNextDocument( doc )
Wend

End Function

Feedback response number WEBB7PFRG3 created by ~Isaac Quetnutex on 02/20/2009

Return to top

DB2NSF replacement (~Judy Destookon... 29.Jan.09)

. . Does this mean that DB2 integration... (~Elizabeth Cish... 29.Jan.09)

. . . . . . xpages can incorporate DB2 access (Roland Reddekop... 2.Feb.09)

. . . . . . . . . . Toy or Trojan? (Roland Reddekop... 2.Feb.09)

. . NSFDB2 plans (~Tate Nonkizenl... 29.Jan.09)

. . . . I would suggest that you didn't tal... (~Dana Chulumarf... 29.Jan.09)

. . . . I need View Contention to go away (~Chris Bubfreep... 29.Jan.09)

. . . . . . Writing out to RDBMS (~Dana Chulumarf... 29.Jan.09)

. . . . how would you handle huge #docs and... (~Tanita Asaboos... 29.Jan.09)

. . . . Domino is a repository (~Olga Asaponeso... 2.Feb.09)

. . . . . . Domino/Notes is really business wor... (~Isaac Quetnute... 20.Feb.09)

. . . . . . use the rigth design (Ioan Crisan 20.Feb.09)

. . . . the second Garnet move (~Judy Destookon... 29.Jan.09)

. . . . . . NSFDB2 support available until 2017... (~Tate Nonkizenl... 29.Jan.09)

. . . . . . . . Query views...but requesting which ... (~Nicole Minaber... 30.Jan.09)

. . . . . . . . . . use the agent trigger "when docs ar... (Ioan Crisan 20.Feb.09)

. . . . . . . . . . . . . . actually this one is (Ioan Crisan 24.Feb.09)

. . . . . . . . . . transactions (Pejman Parandi 2.Feb.09)

. . There's more discussion on NSF's po... (~Sanjay Quettum... 29.Jan.09)

. . . . the backend is poor (~Judy Destookon... 2.Feb.09)

. . . . . . Rating something as "Poor" is relat... (~Gus Chukikonyo... 2.Feb.09)

. . . . . . . . . . The idea has long history... (Vladimir Panov 3.Feb.09)

. . . . . . . . . . . . That's very interesting... (~Sanjay Quettum... 3.Feb.09)

. . . . . . . . NSF versus a relational DB (~Sanjay Quettum... 2.Feb.09)

. . . . . . . . . . YES WE CAN :)) (~Judy Destookon... 3.Feb.09)

. . . . . . . . simple applications need relational... (~Judy Destookon... 3.Feb.09)

. . . . . . . . . . LMAO (~Naomi Deskrote... 4.Feb.09)

. . . . . . . . . . . . obscured by clouds (~Judy Destookon... 5.Feb.09)

. . . . . . . . . . . . . . "Happy with what I already have" (~Naomi Deskrote... 7.Feb.09)

. . . . . . . . . . . . . . . . LMAO at "chasing with a pitchfork" (~Sanjay Quettum... 8.Feb.09)

. . . . . . . . . . . . . . . . dynamic queries, triggers ... (~Judy Destookon... 10.Feb.09)

. . . . . . . . . . . . . . . . . . Normalization (~Naomi Deskrote... 10.Feb.09)

. . . . . . . . . . . . . . . . . . . . pet store application (~Judy Destookon... 10.Feb.09)

. . . . . . . . . . . . . . . . . . . . . . Defining your own limitations (~Naomi Deskrote... 12.Feb.09)

. . . . . . . . . . . . . . . . . . . . . . . . eCommerce web sites (~Judy Destookon... 13.Feb.09)

. . . . . . . . . . . . . . . . . . . . . . . . . . I don't think you're clear on the m... (~Naomi Deskrote... 13.Feb.09)

. . . . . . . . . . . . . . . . . . . . . . . . . . . . fact = market <eom> (~Judy Destookon... 13.Feb.09)

. . . . . . . . . . . . . . . . . . . . by the way (~Judy Destookon... 10.Feb.09)

. . . . . . . . . . Trivial (~Naomi Deskrote... 4.Feb.09)

. . . . . . . . . . . . db2nsf (~Judy Destookon... 5.Feb.09)

. . . . . . . . . . . . . . Agreed (~Sanjay Quettum... 5.Feb.09)

. . . . . . . . . . . . Resolving keys in a view (~Olga Asaponeso... 5.Feb.09)

. . . . . . . . . . . . . . Yesterday's complaint (~Naomi Deskrote... 7.Feb.09)

. . . . . . . . . . . . . . . . . . NSFDB2 helped Lotusscript programme... (Nathan T. Freem... 10.Feb.09)

. . . . . . . . . . . . . . . . . . . . . . pureXML (Pejman Parandi 10.Feb.09)

. . . . . . . . . . . . . . . . . . The query views work in all version... (Bruce Lill 24.Feb.09)

Printer-friendly

Search this forum

Member Tools

RSS Feeds

RSS feeds

	All forum posts RSS
	All main topics RSS